home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Completions / JScrCompletions.tcl < prev    next >
Encoding:
Text File  |  1998-04-16  |  1.4 KB  |  34 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  JavaScript mode - tools for editing JavaScript documents
  4.  # 
  5.  #  FILE: "JScrCompletions.tcl"
  6.  #                                    created: 98-02-07 12.29.10 
  7.  #                                last update: 98-02-14 19.10.10 
  8.  #  Author: Johan Linde
  9.  #  E-mail: <jl@theophys.kth.se>
  10.  #     www: <http://bach.theophys.kth.se/~jl/Alpha.html>
  11.  #  
  12.  # Version: 1.1
  13.  # 
  14.  # Copyright 1997, 1998 by Johan Linde
  15.  #  
  16.  # This software may be used freely, and distributed freely, as long as the 
  17.  # receiver is not obligated in any way by receiving it.
  18.  #  
  19.  # If you make improvements to this file, please share them!
  20.  # 
  21.  # ###################################################################
  22.  ##
  23.  
  24. set completions(JScr) {completion::electric completion::word}
  25.  
  26. set JScrelectrics(for) " (•init•; •test•; •increment•) \{\n\t•loop body•\n\}\n••"
  27. set JScrelectrics(while) " (•test•)\{\n\t•loop body•\n\}\n••"
  28. set JScrelectrics(switch) " (•value•)\{\n…case •item•:\n\t•case body•\n…default:\n\t•default body•\n\}\n••"
  29. set JScrelectrics(case) " •item•:\n…•case body•\ncase"
  30. set JScrelectrics(do) " \{\n\t••\n\} while (•test•);\n••"
  31. set JScrelectrics(if) " (•condition•)\{\n\t•if body•\n\} ••"
  32. set JScrelectrics(else) " \{\n\t•else body•\n\} ••"
  33. set JScrelectrics(function) " •name•(•arguments•) \{\n\t•function body•\n\}\n••"
  34.